put "The country is:" into line 1 of card field Prompt
put clickedCountry into line 2 of card field Prompt
wait 1 seconds
put "Click on" into line 4 of card field Prompt
put "any country" into line 5 of card field Prompt
put "with a dot." into line 6 of card field Prompt
end learnHandler
on guessHandler
global theCountry
global clickedCountry
global countryNum
if countryNum < 18 then
if clickedCountry <> theCountry then
errorHandler
else
rightHandler
end if
nextCountry
else
clearPrompt
showScoreCard
end if
end guessHandler
on clearPrompt
repeat with i = 1 to 6
put "" into line i of card field Prompt
end repeat
end clearPrompt
on errorHandler
global errorCount
put errorCount + 1 into errorCount
highlightRightCountry
end errorHandler
on highlightRightCountry
global theCountry
repeat until the mouseClick
set the style of card button theCountry to rectangle
wait 5
set the style of card button theCountry to transparent
wait 5
end repeat
end highlightRightCountry
on rightHandler
put "CORRECT!" into line 4 of card field Prompt
end rightHandler
on showScoreCard
global errorCount
put errorCount into line 2 of card field ScoreCard
put round((18-errorCount)*100/18) into percentage
put percentage into line 6 of card field ScoreCard
show card field ScoreCard
wait until the mouseClick
hide card field ScoreCard
end showScoreCard
on closeCard
clearPrompt
repeat with i = 2 to 8
hide card field i
end repeat
end closeCard
-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=153 right=175 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quiz
----- HyperTalk script -----
on mouseUp
global errorCount
global countryNum
global learnMode
clearPrompt
hide card field ScoreCard
hide card field CountryList
put 0 into countryNum
put 0 into errorCount
put false into learnMode
nextCountry
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=180 right=202 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Learn
----- HyperTalk script -----
on mouseUp
global learnMode
put true into learnMode
clearPrompt
put "Click on" into line 1 of card field Prompt
put "any country" into line 2 of card field Prompt
put "with a dot." into line 3 of card field Prompt
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=207 right=229 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scramble
----- HyperTalk script -----
on mouseUp
set cursor to 4
show message box
put "This takes a minute or so." into the message box
genRandomList
loadTempList
repeat with j = 0 to 17
put 1 into minPosition
put line 1 of card field RandomList into min
repeat with i = 1 to 18-j
put line i of card field RandomList into testNum
if testNum < min then
put testNum into min
put i into minPosition
end if
end repeat
get line minPosition of card field TempList
put it into line j+1 of card field CountryList
delete line minPosition of card field TempList
delete line minPosition of card field RandomList
end repeat
hide message box
end mouseUp
on genRandomList
repeat with i = 1 to 18
put random(20) into line i of card field RandomList
end repeat
end genRandomList
on loadTempList
repeat with i = 1 to 18
get line i of card field PermList
put it into line i of card field TempList
end repeat
end loadTempList
-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=234 right=256 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
show card field Help
wait until the mouseClick
hide card field Help
end mouseUp
-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=261 right=283 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
show card field About
wait until the mouseClick
hide card field About
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=203 top=111 right=127 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Syria
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Syria" into clickedCountry
countryHandler
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=183 top=123 right=135 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lebanon
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Lebanon" into clickedCountry
countryHandler
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=189 top=157 right=171 bottom=203
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Jordan
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Jordan" into clickedCountry
countryHandler
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=149 top=186 right=210 bottom=172
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Egypt
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Egypt" into clickedCountry
countryHandler
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=240 top=196 right=233 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Saudi Arabia
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Saudi Arabia" into clickedCountry
countryHandler
end mouseUp
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=253 top=276 right=292 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yemen
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Yemen" into clickedCountry
countryHandler
end mouseUp
-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=283 top=276 right=292 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: South Yemen
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "South Yemen" into clickedCountry
countryHandler
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=342 top=236 right=252 bottom=359
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Oman
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Oman" into clickedCountry
countryHandler
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=324 top=208 right=224 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: United Arab Emirates
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "United Arab Emirates" into clickedCountry
countryHandler
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=273 top=161 right=176 bottom=290
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kuwait
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Kuwait" into clickedCountry
countryHandler
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=235 top=127 right=147 bottom=259
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Iraq
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Iraq" into clickedCountry
countryHandler
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=314 top=130 right=156 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Iran
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Iran" into clickedCountry
countryHandler
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=122 right=145 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Afghanistan
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Afghanistan" into clickedCountry
countryHandler
end mouseUp
-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=154 right=175 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pakistan
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Pakistan" into clickedCountry
countryHandler
end mouseUp
-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=158 top=73 right=98 bottom=195
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Turkey
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Turkey" into clickedCountry
countryHandler
end mouseUp
-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=305 top=199 right=211 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Qatar
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Qatar" into clickedCountry
countryHandler
end mouseUp
-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=301 top=187 right=199 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bahrain
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Bahrain" into clickedCountry
countryHandler
end mouseUp
-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=176 top=148 right=160 bottom=188
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Israel
----- HyperTalk script -----
on mouseUp
global clickedCountry
put "Israel" into clickedCountry
countryHandler
end mouseUp
-- part 24 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=8 top=31 right=148 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prompt
-- part 25 (field)
-- low flags: 80
-- high flags: 4007
-- rect: left=394 top=23 right=198 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: CountryList
-- part 29 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=153 top=83 right=273 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: ScoreCard
-- part 30 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=169 top=42 right=323 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=500 top=330 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
global countryNum
put 15 into countryNum
end mouseUp
-- part 32 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=283 top=23 right=198 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: TempList
-- part 33 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=169 top=42 right=323 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
-- part 36 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=239 top=23 right=198 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: RandomList
-- part 38 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=130 top=23 right=198 bottom=237
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 7
-- style flags: 0
-- line height: 9
-- part name: PermList
-- part 39 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=303 right=325 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
domenu Quit HyperCard
end mouseUp
-- part contents for card part 25
----- text -----
Turkey
United Arab Emirates
South Yemen
Qatar
Saudi Arabia
Egypt
Syria
Pakistan
Oman
Yemen
Jordan
Kuwait
Iran
Bahrain
Lebanon
Afghanistan
Israel
Iraq
-- part contents for card part 24
----- text -----
-- part contents for card part 29
----- text -----
You missed
9
Countries
Your Score is
50
Percent
-- part contents for card part 30
----- text -----
Middle East Countries
Created by Dave Duncan
Inspired by the program "Europe"
on the DiskWorld Sampler Disk.
I had so much fun learning the countries of Europe, that I thought it might be fun to have a stack which helped teach the countries of the Middle East. I never have been able to figure out all the geographic relationships of that area. This isn't as snazzy or complete as
"Europe", but anyone is welcome to enhance it.
(Click when done.)
-- part contents for card part 33
----- text -----
MIDDLE EAST HELP
Quiz Mode
The country is requested in the upper-left
corner of this card.
Click on the dot representing that country.
Learn Mode
Click on the dot of any country, and its name will be shown in the upper-left of this card.
Scramble
Scrambles the order in which the quiz asks for the countries.